﻿Public Class ven_factsup

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnok_factsup.Click
        If rbesmerilado.Checked = True Then
            a = 1.58
            b = -0.085
        End If
        If rbmaquiolamifrio.Checked = True Then
            a = 4.51
            b = -0.265
        End If
        If rblamical.Checked = True Then
            a = 57.7
            b = -0.718
        End If
        If rbforjado.Checked = True Then
            a = 272
            b = -0.995
        End If
        ka = a * (su ^ b)
        Me.Close()

    End Sub
End Class